;.DECDF DEFINES DEC UUOS AND JOBDAT VARIABLES.

.AUXIL
IF2,	.INEOF

DEFINE .DECSET XXX/
 .INIT"XXX
TERMIN

DEFINE .DECS1 XXX/
XXX
TERMIN

DEFINE .DECHK XXX/
 XXX
 IRPS XXY,,XXX
  XXY==XXY
  .ISTOP
 TERMIN
TERMIN

;.DECDF DEFINES ALL THE DEC SYMBOLS EXCEPT THE OBSOLETE "JOB..." SERIES.
;THE ".JBH.." SERIES IS HALF-KILLED.
;ALL THE SYMBOLS ARE PUT IN THE .INIT BLOCK SO THEY WON'T GO IN THE SYMTAB
;AND WILL APPEAR TO BE PREDEFINED.

DEFINE .DECDF
.DECUU .DECS1
.DEC.J .DECSE
.DECTT .DECS1
.DECCL .DECS1
.DECMT .DECS1
.DECJH .DECSE
.HKILL CALLI, TTCALL, MTAPE
TERMIN

;THIS MACRO REPEATS OVER THE NAMES OF THE DEC UUOS.
;THE LARGE NUMBERS MAY LOOK UGLY, BUT SINCE THEY ARE ONE SYLLABLE
;THE MACRO "DEF" CAN EXTRACT THEM WITH AN IRPS.

DEFINE .DECUU DEF
DEF INIT=41000000000
DEF CALLI=47000000000
DEF OPEN=50000000000
DEF TTCALL=51000000000
DEF RENAME=55000000000
DEF IN=56000000000
DEF OUT=57000000000
DEF SETSTS=60000000000
DEF STATO=61000000000
DEF GETSTS=62000000000
DEF STATZ=63000000000
DEF INBUF=64000000000
DEF OUTBUF=65000000000
DEF INPUT=66000000000
DEF OUTPUT=67000000000
DEF CLOSE=70000000000
DEF RELEAS=71000000000
DEF MTAPE=72000000000
DEF UGETF=73000000000
DEF USETI=74000000000
DEF USETO=75000000000
DEF LOOKUP=76000000000
DEF ENTER=77000000000
DEF UJEN=100000000000
TERMIN


;THIS MACRO REPEATS OVER ALL THE MTAPES
DEFINE .DECMT DEF
DEF MTWAT.=72000000000
DEF MTREW.=72000000001
DEF MTEOF.=72000000003
DEF MTSKR.=72000000006
DEF MTBSR.=72000000007
DEF MTEOT.=72000000010
DEF MTUNL.=72000000011
DEF MTBLK.=72000000013
DEF MTSKF.=72000000016
DEF MTBSF.=72000000017
DEF MTDEC.=72000000100
DEF MTIND.=72000000101
DEF MTLTH.=72000000200
TERMIN


;THIS MACRO DEFINES THE DEC TTCALLS.
DEFINE .DECTT DEF
DEF INCHRW=51000000000
DEF OUTCHR=51040000000
DEF INCHRS=51100000000
DEF OUTSTR=51140000000
DEF INCHWL=51200000000
DEF INCHSL=51240000000
DEF GETLCH=51300000000
DEF SETLCH=51340000000
DEF RESCAN=51400000000
DEF CLRBFI=51440000000
DEF CLRBFO=51500000000
DEF SKPINC=51540000000
DEF SKPINL=51600000000
DEF IONEOU=51640000000
TERMIN

;THIS MACRO REPEATS OVER THE LOW SEGMENT JOB DATA AREA SYMBOLS
DEFINE .DEC.J DEF
DEF .JBUUO=40
DEF .JB41=41
DEF .JBERR=42
DEF .JBREL=44
DEF .JBBLT=45
DEF .JBDDT=74
DEF .JBCN6=106
DEF .JBPFI=114
DEF .JBHRL=115
DEF .JBSYM=116
DEF .JBUSY=117
DEF .JBSA=120
DEF .JBFF=121
DEF .JBREN=124
DEF .JBAPR=125
DEF .JBCNI=126
DEF .JBTPC=127
DEF .JBOPC=130
DEF .JBOVL=131
DEF .JBCOR=133
DEF .JBINT=134
DEF .JBOPS=135
DEF .JBCST=136
DEF .JBVER=137
DEF .JBDA=140
TERMIN


;THIS MACRO REPEATS OVER THE HIGH SEGMENT JOB DATA AREA SYMBOLS.
DEFINE .DECJH DEF
DEF .JBHGH=400000
DEF .JBHSA=0
DEF .JBH41=1
DEF .JBHCR=2
DEF .JBHRN=3
DEF .JBHVR=4
DEF .JBHNM=5
DEF .JBHSM=6
DEF .JBHGA=7
DEF .JBHDA=10
TERMIN

DEFINE .DECJB DEF
DEF JOBUUO=40
DEF JOB41=41
DEF JOBERR=42
DEF JOBREL=44
DEF JOBBLT=45
DEF JOBDDT=74
DEF JOBCN6=106
DEF JOBPFI=114
DEF JOBHRL=115
DEF JOBSYM=116
DEF JOBUSY=117
DEF JOBSA=120
DEF JOBFF=121
DEF JOBREN=124
DEF JOBAPR=125
DEF JOBCNI=126
DEF JOBTPC=127
DEF JOBOPC=130
DEF .JBCHN=131
DEF JOBCHN=131
DEF JOBCOR=133
DEF JOBINT=134
DEF JOBVER=137
DEF JOBDA=140
TERMIN

DEFINE .DECCL DEF
DEF LIGHTS=47000777777
DEF RESET=47000000000
DEF DDTIN=47000000001
DEF SETDDT=47000000002
DEF DDTOUT=47000000003
DEF DEVCHR=47000000004
DEF DDTGT=47000000005
DEF GETCHR=47000000006
DEF DDTRL=47000000007
DEF WAIT=47000000010
DEF CORE=47000000011
DEF EXIT=47000000012
DEF MONRT.=exit 1,
DEF UTPCLR=47000000013
DEF DATE=47000000014
DEF LOGIN=47000000015
DEF APRENB=47000000016
DEF LOGOUT=47000000017
DEF SWITCH=47000000020
DEF REASSI=47000000021
DEF TIMER=47000000022
DEF MSTIME=47000000023
DEF GETPPN=47000000024
DEF TRPSET=47000000025
DEF TRPJEN=47000000026
DEF RUNTIM=47000000027
DEF PJOB=47000000030
DEF SLEEP=47000000031
DEF SETPOV=47000000032
DEF PEEK=47000000033
DEF GETLIN=47000000034
DEF RUN=47000000035
DEF SETUWP=47000000036
DEF REMAP=47000000037
DEF GETSEG=47000000040
DEF GETTAB=47000000041
DEF SPY=47000000042
DEF SETNAM=47000000043
DEF TMPCOR=47000000044
DEF DSKCHR=47000000045
DEF SYSSTR=47000000046
DEF JOBSTR=47000000047
DEF STRUUO=47000000050
DEF SYSPHY=47000000051
DEF FRECHN=47000000052
DEF DEVTYP=47000000053
DEF DEVSTS=47000000054
DEF DEVPPN=47000000055
DEF SEEK=47000000056
DEF RTTRP=47000000057
DEF LOCK=47000000060
DEF JOBSTS=47000000061
DEF LOCATE=47000000062
DEF WHERE=47000000063
DEF DEVNAM=47000000064
DEF CTLJOB=47000000065
DEF GOBSTR=47000000066
DEF ACTIVA=47000000067
DEF DEACTI=47000000070
DEF HPQ=47000000071
DEF HIBER=47000000072
DEF WAKE=47000000073
DEF CHGPPN=47000000074
DEF SETUUO=47000000075
DEF DEVGEN=47000000076
DEF OTHUSR=47000000077
DEF CHKACC=47000000100
DEF DEVSIZ=47000000101
DEF DAEMON=47000000102
DEF JOBPEK=47000000103
DEF ATTACH=47000000104
DEF DAEFIN=47000000105
DEF FRCUUO=47000000106
DEF DEVLNM=47000000107
DEF PATH.=47000000110
DEF METER.=47000000111
DEF MTCHR.=47000000112
DEF JBSET.=47000000113
DEF POKE.=47000000114
DEF TRMNO.=47000000115
DEF TRMOP.=47000000116
DEF RESDV.=47000000117
DEF UNLOK.=47000000120
DEF DISK.=47000000121
DEF DVRST.=47000000122
DEF DVURS.=47000000123
DEF XTTSK.=47000000124
DEF CAL11.=47000000125
DEF MTAID.=47000000126
DEF IONDX.=47000000127
DEF CNECT.=47000000130
DEF MVHDR.=47000000131
DEF ERLST.=47000000132
DEF SENSE.=47000000133
DEF CLRST.=47000000134
DEF PIINI.=47000000135
DEF PISYS.=47000000136
DEF DEBRK.=47000000137
DEF PISAV.=47000000140
DEF PIRST.=47000000141
DEF IPCFR.=47000000142
DEF IPCFS.=47000000143
DEF IPCFQ.=47000000144
DEF PAGE.=47000000145
DEF SUSET.=47000000146
DEF COMPT.=47000000147
DEF SCHED.=47000000150
DEF ENQ.=47000000151
DEF DEQ.=47000000152
DEF ENQC.=47000000153
DEF TAPOP.=47000000154
DEF FILOP.=47000000155
DEF CAL78.=47000000156
DEF NODE.=47000000157
DEF ERRPT.=47000000160
DEF ALLOC.=47000000161
DEF PERF.=47000000162
TERMIN
ββ